home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / mailii.arc / ML2ZIPCT.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  768 b   |  36 lines
  1. * ML2ZIPCT.CMD
  2. * COUNTS ZIP CODES >= 10
  3. * WIL WAKELY, 4/82
  4. ERASE
  5. ? 'PRINTS ZIP CODES >= 10'
  6. ? 'BE SURE ML2 HAS BEEN SORTED ON ZIP TO ML2SZIP.NDX'
  7. ? 'ACCEPT 'TODAYS DATE ' TO DATE
  8. ? 'CONTINUE? ESC TO EXIT'
  9. WAIT TO ANS
  10. USE ML2 INDEX ML2SZIP
  11. GOTO TOP
  12. SET TALK OFF
  13. SET PRINT ON
  14. ? '        MAIL LIST ZIP CODE COUNTS >= TEN' + DATE
  15. ?
  16. STORE 0 TO OLDZIP
  17. STORE 0 TO CTR
  18. DO WHILE .NOT. EOF
  19.   IF VAL(ZIP)=OLDZIP
  20.     STORE CTR+1 TO CTR
  21.   ELSE
  22.     IF CTR >= 10
  23.         ? STR(OLDZIP,5) + '  ' + STR(CTR,2)
  24.         ?
  25.     ENDIF
  26.       STORE 1 TO CTR
  27.     STORE VAL(ZIP) TO OLDZIP
  28.   ENDIF
  29.   SKIP
  30. ENDDO
  31. ?
  32. ? '*** ALL DONE ***'
  33. SET PRINT OFF
  34. SET TALK ON
  35. RETURN
  36.